﻿Public Class frmIngresarBonificacion


    Private Sub btnGenerarCaratula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerarCaratula.Click

        If Not txtBonificacion.Text.Trim = "" Then
            frmCierrePresentacion.Bonificacion = CDbl(txtBonificacion.Text)
            frmCierrePresentacion.ShowDialog()
            Me.Dispose()
        Else
            MsgBox("Por favor ingrese el porcentaje de bonificación", MsgBoxStyle.Information, "Atención")
        End If

    End Sub
End Class